# -*- mode: snippet -*-
# name: lm Fitting Linear Models
# key: lm
# contributor : Shuguang Sun
# --
$0 <- lm(formula = $2,
         data = $1)